(define main
  (builtin print (let factorial ((n 5))
	             (if (builtin = 0 n)
                            1
                            (builtin * n (factorial (builtin - n 1)))))))

